with Legend.LScripts;
with Legend.Resources;
with Ada.Exceptions;
with Ada.Text_IO;
procedure Kdef is
begin
   Legend.Set_Game(0);
   Legend.Load_States;
   Legend.Resources.Load_Talk_Resources;
   Legend.LScripts.Extract_Scripts;
exception
   when E : others =>
      Ada.Text_IO.Put_Line(Ada.Exceptions.Exception_Information(E));
end Kdef;
